﻿Namespace Algorithm

    Public MustInherit Class Math

        Public Shared Function RandomBetween(ByVal min As Single, ByVal max As Single) As Single
            Dim Random As New Random()
            Return CSng(min + Random.NextDouble() * (max - min))
        End Function

    End Class

End Namespace